home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 June / 1989-06.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  860b  |  24 lines
  1. 10 data 228,162,208,6,32,225,255,208
  2. 20 data 247,96,138,74,144,3,238,0
  3. 30 data 208,166,162,24,173,131,32,105
  4. 40 data 5,141,131,32,173,130,32,105
  5. 50 data 0,141,130,32,24,173,131,32
  6. 60 data 109,129,32,141,129,32,173,130
  7. 70 data 32,109,128,32,141,128,32,141
  8. 80 data 1,208,201,240,144,194,173,130
  9. 90 data 32,48,189,78,130,32,46,131
  10. 100 data 32,173,130,32,208,7,173,131
  11. 110 data 32,201,5,144,19,56,169,0
  12. 120 data 237,131,32,141,131,32,169,0
  13. 130 data 237,130,32,141,130,32,144,159,96
  14. 135 print"[147]":poke53280,14:poke53281,6:poke646,14
  15. 140 forj=8192to8296:reada:x=x+a:pokej,a:next:ifx<>11758thenstop
  16. 150 forj=704to766:pokej,0:next:forj=704to710step3:pokej,255:next:rem sprite
  17. 170 poke2040,11:rem point to sprite data
  18. 180 poke53248,0:poke53249,60:rem locate sprite 0 at (0,60)
  19. 190 poke53287,2:poke53269,1:rem color sprite 0 and turn it on
  20. 210 poke8320,60:poke8321,0:rem initialize y position
  21. 220 poke8322,0:poke8323,0:rem initialize y velocity
  22. 230 sys 8192
  23. 240 poke53269,0:rem turn off sprite 0
  24.